home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / poe boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  40 lines
  1. 10 poke53280,5:poke53281,0:poke646,1:printchr$(14)
  2. 20 print"[147]             [208][207][197][160][193][196][214][197][206][212][213][210][197]"
  3. 22 print"             -------------"
  4. 40 print"[215]ritten by:  [202]im [205]enick"
  5. 50 print"             15 [195]asparian [210]oad"
  6. 60 print"             [208]eekskill, [206][217]  10566"
  7. 62 print" <[210]evised for the [195]-64 by [193]lan [199]ardner>"
  8. 70 :
  9. 80 print"[200]ere is an adventure game we think"
  10. 82 print"you'll like.  [202]im said he wrote this to"
  11. 84 print"go with an article on adventure game"
  12. 86 print"programming.  [211]tudy the code to find"
  13. 88 print"some programming hints for writing your"
  14. 90 print"own adventure games."
  15. 92 print""spc(7)"<[208]ress a key to continue>":poke198,0:wait198,1
  16. 96 :
  17. 100 print"[147]             [208][207][197][160][193][196][214][197][206][212][213][210][197]"
  18. 102 print"             -------------"
  19. 110 print"[215]hile you're wandering around finding"
  20. 112 print"fame and fortune, remember that you"
  21. 114 print"can save the game at any time.  [212]hat's"
  22. 116 print"a good idea if you're going to try"
  23. 118 print"something that might not work!"
  24. 120 print"[200]ave fun!!"
  25. 130 print""spc(7)"<[208]ress a key to continue>":poke198,0:wait198,1
  26. 140 :
  27. 150 print"[147]             [208][207][197][160][193][196][214][197][206][212][213][210][197]"
  28. 152 print"             -------------"
  29. 160 print"[210] = [210][213][206][160][212][200][197][160][193][196][214][197][206][212][213][210][197]"
  30. 162 print"[194][160]=[160][194][193][195][203][160][212][207][160][204][207][193][196][211][212][193][210]"
  31. 166 print"[215][200][201][195][200][160][196][207][160][217][207][213][160][215][193][206][212][160][212][207][160][196][207][160]([210][160][207][210][160][194])?";
  32. 170 poke198,0:wait198,1:getk$
  33. 172 ifk$<>"r"andk$<>"b"thenpoke53280,rnd(1)*15:goto170
  34. 174 ifk$="r"thenf$="poe adventure":print:print"[204]oading... please wait 60 seconds."
  35. 176 ifk$="b"thenf$="hello"
  36. 180 :
  37. 190 :
  38. 200 print"[144]load"chr$(34)f$chr$(34)",8":print"run"
  39. 210 poke631,13:poke632,13:poke198,2:end
  40.